Sub セルの背景色設定()
    '変数宣言
    Dim oCell As range
    
    '設定対象セルの取得
    Set oCell = ThisWorkbook.Worksheets(1).Cells(1, 1)
    
    '背景色
    'RGB値を指定する場合、(0,0,0)は黒、(255,255,255)は白
    ThisWorkbook.Worksheets(1).Cells(1, 2).Interior.Color = RGB(255, 50, 200)
    
    'カラーインデックスを指定する場合
    '（パレットのインデックスを使用する為、パレットが変更されると変わる）
    ThisWorkbook.Worksheets(1).Cells(2, 2).Interior.ColorIndex = 24
    
    'QBColorを使用する場合
    '       0･･･黒
    '       1･･･青
    '       2･･･緑
    '       3･･･シアン
    '       4･･･赤
    '       5･･･マゼンタ
    '       6･･･黄
    '       7･･･白
    '       8･･･灰色
    '       9･･･明るい青
    '       10･･･明るい緑
    '       11･･･明るいシアン
    '       12･･･明るい赤
    '       13･･･明るいマゼンタ
    '       14･･･明るい黄
    '       15･･･明るい白
    ThisWorkbook.Worksheets(1).Cells(3, 2).Interior.Color = QBColor(11)
    
End Sub

アフィリエイトをはじめるなら、こちらから登録できます。

b-click